home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 7
/
PC World Interactive 7.iso
/
share
/
demolar
/
Quark
/
data.z
/
QuarkXPress 4.0 Demo.exe
/
0
/
PSHD
/
1007
< prev
next >
Wrap
Text File
|
1998-01-08
|
6KB
|
154 lines
userdict/epsdict 96 dict dup begin put
/T true def
/F false def
/CT 0 def
/K F def
/K0 T def
/K1 F def
/K2 F def
/op F def
/sepf F def
/h 0 def
/i 0 def
/j 0 def
/k 0 def
/s 0 def
/I 0 def
/J 0 def
/f1 0 def
/f2 0 def
/f12 0 def
/g0 0 def
/g1 0 def
/g2 0 def
/g3 0 def
/cc 0 def
/ccls 0 def
/ccn 0 def
/ccpl 0 def
/fctr 0 def
/eprgb 0 def
/x matrix def
/A 128 array def
/setpacking where dup{exch pop currentpacking exch true setpacking}if
/B{bind def}bind def
/X{exch def}B
/p2{pop pop}B
/p3{pop pop pop}B
/p4{pop pop pop pop}B
/xpdctsop[currentdict/begin load]cvx B
/e/end load def
/E{load e exec xpdctsop}B
/E0{load e exec}B
/stf systemdict/settransfer get def
/ctf systemdict/currenttransfer get def
/cctp{cvlit/f2 X cvlit/f1 X
/f12 f1 length f2 length add array def
f12 0 f1 putinterval f12 f1 length f2 putinterval f12 cvx}B
/st1{/CT load cctp stf}B
/stcp{ctf cctp stf}B
/W{K1{dup 1 ne}{T}ifelse/K0 X 4 copy 4 copy eq 3 1 roll eq and 4 -2 roll eq and exch 0 eq and/K X pop}B
/setoverprint{xpdctsop/op X e}B
/currentoverprint{xpdctsop op e}B
/P{op not K0 and currentgray 1 ne K or or K2 or}B
/setcolortransfer{xpdctsop 4 1 roll p3/stf E0}B
/setcolorscreen{xpdctsop 12 3 roll p3 p3 p3/setscreen E0}B
/setseparationgray/setgray load def
/setlvl{1. exch sub setseparationgray}B
/setcmykcolor{xpdctsop W p4 1 setseparationgray e}B
/setgray{K2{setseparationgray}{1. exch sub 0 0 0 4 -1 roll setcmykcolor}ifelse}B
/setrgbcolor{
3{1 exch sub 3 1 roll}repeat
3 copy 2{2 copy gt{exch}if pop}repeat
4 1 roll 3{3 index sub 3 1 roll}repeat
4 -1 roll setcmykcolor}B
/setcmybcolor{setcmykcolor}B
/findcmykcustomcolor{5 array astore readonly}B
/setcustomcolor{
xpdctsop exch dup 4 get/ccn X F/sepf X F/K X T/K0 X
ccls{ccn eq{/sepf T def exit}if}forall
sepf{pop ccn ccpl eq{setlvl}{pop 0 setlvl}ifelse}
{aload p2 4{4 index mul 4 1 roll}repeat setcmykcolor pop}ifelse e
}def
/F0/sethsbcolor load def
/sethsbcolor{xpdctsop F0 currentrgbcolor setrgbcolor e}B
/F1/imagemask load def
/imagemask{xpdctsop P{/F1 E0}{gsave nulldevice/F1 E0 grestore}ifelse}B
/separationimage/image load def
/F2/image load def
/image{xpdctsop cc 1 eq K2 or{/F2 E0}{gsave{pop 1}st1/F2 E0 grestore}ifelse}B
/customcolorimage{xpdctsop dup 4 get/ccn X F/sepf X
ccls{ccn eq{/sepf T def exit}if}forall
sepf{pop ccn ccpl eq{/F2 E0}{gsave{pop 1}st1/F2 E0 grestore}ifelse}
{gsave cc 5 ge cc 7 le and cc 1 eq or{cc 1 eq{3}{cc 5 sub}ifelse get/fctr X
{1 fctr 1 4 -1 roll sub mul sub}stcp}{pop{pop 1}st1}ifelse/F2 E0 grestore}ifelse
}B
/rgbmultpr{/g2 E/g1 E/g0 E
dup/s X k{/i 0 def{.11 mul 1 index i get .59 mul add
2 index i get .3 mul add round cvi
s i 3 -1 roll put/i i 1 add def}forall p2}{p3}ifelse s
}B
/cmymultpr{/g3 E/g2 E/g1 E/g0 E
cc 1 eq{4 1 roll p3}{4 5 cc sub roll p3}ifelse
}B
/snglpr{/g0 E
dup dup length eprgb{3}{4}ifelse idiv 0 exch getinterval/s X
h{/i 0 def/j 0 def s{pop eprgb{k{dup i 3 getinterval{}forall
.11 mul exch .59 mul add exch .3 mul add round cvi}{0}ifelse 3}
{dup i 4 getinterval cc 1 eq{3 get}{cc 5 sub get}ifelse 4}ifelse
i add/i X s j 3 -1 roll put/j j 1 add def}forall}if pop s
}B
/colorimage {
xpdctsop gsave 3 eq dup/eprgb X not{{1 exch sub}stcp}if
{eprgb{/g0 X/g1 X/g2 X/rgbmultpr load}
{/g0 X/g1 X/g2 X/g3 X/cmymultpr load}ifelse}
{/g0 X/snglpr load}ifelse 2 index 8 eq cc 1 eq 2 copy and/k X
cc 5 ge cc 7 le and or dup 3 1 roll and/h X eprgb not and
{F2}{image}ifelse grestore e
}B
/F3/fill load def
/fill{xpdctsop P{F3}{newpath}ifelse e}B
/F4/eofill load def
/eofill{xpdctsop P{F4}{newpath}ifelse e}B
/F5/stroke load def
/stroke{xpdctsop P{F5}{newpath}ifelse e}B
/F6/show load def
/show{xpdctsop P{/F6 E0}{/stringwidth E0 rmoveto}ifelse}B
/F7/ashow load def
/ashow{xpdctsop P{/F7 E0}{gsave currentpoint x currentmatrix nulldevice
setmatrix moveto/F7 E0 currentpoint grestore moveto}ifelse}B
/F8/widthshow load def
/widthshow{xpdctsop P{/F8 E0}{gsave currentpoint x currentmatrix nulldevice
setmatrix moveto/F8 E0 currentpoint grestore moveto}ifelse}B
/F9/awidthshow load def
/awidthshow{xpdctsop P{/F9 E0}{gsave currentpoint x currentmatrix nulldevice
setmatrix moveto/F9 E0 currentpoint grestore moveto}ifelse}B
/F10/kshow load def
/kshow{xpdctsop P{/F10 E0}{gsave currentpoint x currentmatrix nulldevice
setmatrix moveto/F10 E0 currentpoint grestore moveto}ifelse}B
/F11/gsave load def
/gsave{xpdctsop K2 not{A I K put A I 1 add K0 put/I I 2 add def}if F11 e}B
/F12/grestore load def
/grestore{xpdctsop F12 K2 not{I J gt{/I I 2 sub def}if A I get/K X A I 1 add get/K0 X}if e}B
/F13/grestoreall load def
/grestoreall{xpdctsop F13 K2 not{/I J def A I get/K X A I 1 add get/K0 X}if e}B
/F14/save load def
/save{xpdctsop F14 K2 not{/J I def A I K put A I 1 add K0 put/I I 2 add def}if e}B
/epsetup{
/cc X/ccls X/ccpl X A 0 F put A 1 T put ctf/CT X
cc 1 eq{/setcmykcolor{xpdctsop W setlvl p3 e}B
/setcolortransfer{xpdctsop 4 1 roll p3/stf E0}B
/setcolorscreen{xpdctsop 12 3 roll p3 p3 p3/setscreen E0}B}if
cc 5 eq{/setcmykcolor{xpdctsop W p3 setlvl e}B
/setcolortransfer{xpdctsop p3/stf E0}B
/setcolorscreen{xpdctsop p3 p3 p3/setscreen E0}B}if
cc 6 eq{/setcmykcolor{xpdctsop W p2 setlvl pop e}B
/setcolortransfer{xpdctsop 4 -1 roll p3/stf E0}B
/setcolorscreen{xpdctsop 12 -3 roll p3 p3 p3/setscreen E0}B}if
cc 7 eq{/setcmykcolor{xpdctsop W pop setlvl p2 e}B
/setcolortransfer{xpdctsop 4 -2 roll p3/stf E0}B
/setcolorscreen{xpdctsop 12 -6 roll p3 p3 p3/setscreen E0}B}if
}def
{setpacking}if
end